1 REM ********************** 2 REM * DEMO * 3 REM * SUBROUTINE/RESTORE * 4 REM ********************** 5 PRINT"[147] TASTE DRUECKEN!" 6 PRINT:PRINT 10 X=INT(RND(TI)*3)+1 20 ONXGOSUB1000,2000,3000 25 POKE65,PEEK(122):POKE66,PEEK(123) 30 READA$:PRINTA$ 50 DATA"HAUPTPROGRAMM" 100 GOTO10 999 : 1000 REM *** SUBROUTINE 1 *** 1005 : 1010 POKE65,PEEK(122):POKE66,PEEK(123) 1020 FORI=1TO4:READA:PRINTA;:NEXT 1030 READA$:PRINTA$; 1040 POKE198,0:WAIT198,1 1050 DATA1,11,111,1111,"UP 1 " 1060 RETURN 1070 : 2000 REM *** SUBROUTINE 2 *** 2005 : 2010 POKE65,PEEK(122):POKE66,PEEK(123) 2020 FORI=1TO4:READA:PRINTA;:NEXT 2030 READA$:PRINTA$; 2040 POKE198,0:WAIT198,1 2050 DATA2,22,222,2222,"UP 2 " 2060 RETURN 2070 : 3000 REM *** SUBROUTINE 3 *** 3005 : 3010 POKE65,PEEK(122):POKE66,PEEK(123) 3020 FORI=1TO4:READA:PRINTA;:NEXT 3030 READA$:PRINTA$; 3040 POKE198,0:WAIT198,1 3050 DATA3,33,333,3333,"UP 3 " 3060 RETURN 3070 :